home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 20 / setup.exe / {app} / plugins / XQ Keyboard Logitech 1.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-28  |  1.3 KB  |  46 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Hardware\Keyboard"
  5. "NAME"="Logitech Cordless Keyboard"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Enable Control Panel Extensions for Cordless Keyboard"
  8. "DESCRIPTION 1"="If you have a cordless Logitech keyboard, then you will notice some extra options in the Keyboard applet in Control Panel. If you want to disbale these extra options, clear the checkmark on the left."
  9. "VERSION"="1.0"
  10. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com) for Xteq Systems"
  11. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved."
  12. "CONTACTURL"="http://www.128moorlane.freeserve.co.uk/"
  13.  
  14. sP="HKLM\Software\Logitech"
  15. sQ="HKLM\Software\Microsoft\Windows\CurrentVersion\Controls Folder\Keyboard\shellex\PropertySheetHandlers\Logitech\@"
  16.  
  17. SUB Plugin_Initialize
  18.  f=RegPathExists(sP)
  19.  if f=false then
  20.   Call Disable()
  21.  else
  22.   g=RegReadValue(sQ)
  23.   if g="{D60F93E2-8A7B-11D0-8B13-008048808AB0}" then
  24.    Call SetUIElement(1,true)
  25.   end if
  26.  end if
  27. END SUB
  28.  
  29. SUB Plugin_CheckData(ElementIndex)
  30. END SUB
  31.  
  32. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  33.  b=GetUIElement(1)
  34.  if b=true then
  35.   Call RegWriteValue(sQ,"{D60F93E2-8A7B-11D0-8B13-008048808AB0}",1)
  36.  else
  37.   t=RegValueExists(sQ)
  38.   If t=true then
  39.    Call RegDeleteValue(sQ)
  40.   end if
  41.  end if
  42. END SUB
  43.  
  44. SUB Plugin_Terminate
  45. END SUB
  46.